www.gusucode.com > 智睿学校网站管理系统 V2.20 > 智睿学校网站管理系统 V2.20\code\UserLogin.asp
<!--#include file="Include/conn.asp"--> <!--#include file="Include/Fun_SqlIn.Asp"--> <!--#include file="Include/Md5.asp"--> <% if request.QueryString("Action")="logout" then session.contents.remove "zhi_rui_s_userID" session.contents.remove "zhi_rui_s_MemName" session.contents.remove "zhi_rui_s_mRealName" session.contents.remove "zhi_rui_s_mAddess" session.contents.remove "zhi_rui_s_mZip" session.contents.remove "zhi_rui_s_mTelephone" session.contents.remove "zhi_rui_s_mUmail" session.contents.remove "UserMoney" session.contents.remove "LastLoginIP" response.redirect "UserReg.asp" response.end end if dim LoginName,LoginPassword,VerifyCode,MemName,Password,GroupID,GroupName,Working,rs,sql,userid dim mRealName,mAddess,mZip,mTelephone,mUmail LoginName=StrReplace(trim(request.form("LoginName"))) LoginPassword=Md5(request.form("LoginPassword")) set rs = server.createobject("adodb.recordset") sql="select * from zhi_rui_s_Users where MemName='"&LoginName&"'" rs.open sql,conn,1,3 if rs.bof and rs.eof then Call Alert ("登录名不正确","-1") response.end else userid=rs("id") MemName=rs("MemName") Password=rs("Password") mRealName=rs("RealName") mAddess=rs("Addess") mZip=rs("Zip") mTelephone=rs("Telephone") mUmail=rs("Umail") UserMoney=rs("UserMoney") end if if LoginPassword<>Password then Call Alert ("登录密码不正确","-1") response.end end if if UCase(LoginName)=UCase(MemName) and LoginPassword=Password then rs("LastLoginTime")=now() rs("LastLoginIP")=Request.ServerVariables("Remote_Addr") rs("LoginTimes")=rs("LoginTimes")+1 rs("UserMoney")=rs("UserMoney")+10 rs.update rs.close set rs=nothing session("zhi_rui_s_userID")=userid session("zhi_rui_s_MemName")=MemName session("zhi_rui_s_mRealName")=mRealName session("zhi_rui_s_mAddess")=mAddess session("zhi_rui_s_mZip")=mZip session("zhi_rui_s_mTelephone")=mTelephone session("zhi_rui_s_mUmail")=mUmail session("UserMoney")=UserMoney+10 session("LastLoginIP")=Request.ServerVariables("Remote_Addr") session.timeout=30 response.redirect request.servervariables("http_referer") response.end end if %>